home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / gnu / othergnu / scm4b2.zoo / diffs next >
Text File  |  1993-02-22  |  6KB  |  261 lines
  1. RCS file: /net/acae127/home/bammi/etc/src/master/atari/scm/config.h,v
  2. retrieving revision 1.3
  3. diff -c -r1.3 config.h
  4. *** 1.3    1993/02/19 21:14:13
  5. --- config.h    1993/02/21 04:45:44
  6. ***************
  7. *** 34,39 ****
  8. --- 34,42 ----
  9.   #  define unix
  10.   #  define STDC_HEADERS
  11.   #endif
  12. + #ifdef __hpux
  13. + # define unix   1
  14. + #endif
  15.   #ifdef IO_EXTENSIONS
  16.   # ifdef unix
  17.      /* DJGPP (gcc for i386) defines unix! */
  18. ***************
  19. *** 41,46 ****
  20. --- 44,52 ----
  21.   #   define HAVE_PIPE
  22.   #  endif
  23.   # endif
  24. + # ifdef __MINT__    /* atarist + MiNT */
  25. + #  define HAVE_PIPE
  26. + # endif
  27.   #endif
  28.   
  29.   /* If your scheme code runs under this program without any errors you
  30. ***************
  31. *** 279,285 ****
  32.      in programs.  in both cases sparate characters with ":case " */
  33.   
  34.   #define LINE_INCREMENTORS  '\n'
  35. ! #ifdef MSDOS
  36.   #define WHITE_SPACES  ' ':case '\t':case '\r':case '\f':case 26
  37.   #else
  38.   #define WHITE_SPACES  ' ':case '\t':case '\r':case '\f'
  39. --- 285,291 ----
  40.      in programs.  in both cases sparate characters with ":case " */
  41.   
  42.   #define LINE_INCREMENTORS  '\n'
  43. ! #if defined(MSDOS) || defined(atarist)
  44.   #define WHITE_SPACES  ' ':case '\t':case '\r':case '\f':case 26
  45.   #else
  46.   #define WHITE_SPACES  ' ':case '\t':case '\r':case '\f'
  47. ***************
  48. *** 461,467 ****
  49.   /* If stacks grow up then */
  50.   
  51.   /* #define STACK_GROWS_UP */
  52. ! #ifdef hp9000s800
  53.   #define STACK_GROWS_UP
  54.   #endif
  55.   #ifdef pyr
  56. --- 467,473 ----
  57.   /* If stacks grow up then */
  58.   
  59.   /* #define STACK_GROWS_UP */
  60. ! #if defined(hp9000s800) || defined(__hp9000s700) || defined(__hp9000s800) || defined(__hppa)
  61.   #define STACK_GROWS_UP
  62.   #endif
  63.   #ifdef pyr
  64. ===================================================================
  65. RCS file: /net/acae127/home/bammi/etc/src/master/atari/scm/repl.c,v
  66. retrieving revision 1.3
  67. diff -c -r1.3 repl.c
  68. *** 1.3    1993/02/19 21:14:31
  69. --- repl.c    1993/02/21 04:45:51
  70. ***************
  71. *** 261,268 ****
  72. --- 261,270 ----
  73.   #ifndef MSDOS
  74.   # ifndef __EMX__
  75.   #  ifndef _DCC
  76. + #   ifndef atarist
  77.       else if (isatty(fileno(STREAM(exp))))
  78.         lputs(ttyname(fileno(STREAM(exp))),f);
  79. + #   endif
  80.   #  endif
  81.   # endif
  82.   #endif
  83. ===================================================================
  84. RCS file: /net/acae127/home/bammi/etc/src/master/atari/scm/scm.c,v
  85. retrieving revision 1.3
  86. diff -c -r1.3 scm.c
  87. *** 1.3    1993/02/19 21:14:38
  88. --- scm.c    1993/02/21 04:45:53
  89. ***************
  90. *** 102,108 ****
  91.       wta(UNDEFINED,(char *)SEGV_SIGNAL,"");
  92.   }
  93.   #endif
  94. ! #ifdef atarist
  95.   # undef SIGALRM            /* only available via MiNT libs */
  96.   #endif
  97.   #ifdef GO32
  98. --- 102,108 ----
  99.       wta(UNDEFINED,(char *)SEGV_SIGNAL,"");
  100.   }
  101.   #endif
  102. ! #if defined(atarist) && !defined(__MINT__)
  103.   # undef SIGALRM            /* only available via MiNT libs */
  104.   #endif
  105.   #ifdef GO32
  106. ***************
  107. *** 337,343 ****
  108. --- 337,345 ----
  109.   #ifndef GO32
  110.   # ifndef _DCC
  111.   #  if (__TURBOC__ != 1)
  112. + #   ifndef atarist
  113.     if (isatty(fileno(stdin))) setbuf(stdin,0); /* turn off stdin buffering */
  114. + #   endif
  115.   #  endif
  116.   # endif
  117.   #endif
  118. ===================================================================
  119. RCS file: /net/acae127/home/bammi/etc/src/master/atari/scm/subr.c,v
  120. retrieving revision 1.3
  121. diff -c -r1.3 subr.c
  122. *** 1.3    1993/02/19 21:14:43
  123. --- subr.c    1993/02/21 04:45:54
  124. ***************
  125. *** 334,340 ****
  126.   #endif
  127.     return MAKINUM(x);
  128.   }
  129. ! SCM quotient(x,y)
  130.   SCM x,y;
  131.   {
  132.     register long z;
  133. --- 334,340 ----
  134.   #endif
  135.     return MAKINUM(x);
  136.   }
  137. ! SCM Quotient(x,y)
  138.   SCM x,y;
  139.   {
  140.     register long z;
  141. ***************
  142. *** 541,547 ****
  143.     }
  144.     d = lgcd(n1,n2);
  145.     if (INUM0==d) return d;
  146. !   return absval(product(n1,quotient(n2,d)));
  147.   }
  148.   
  149.   SCM logand(n1,n2)
  150. --- 541,547 ----
  151.     }
  152.     d = lgcd(n1,n2);
  153.     if (INUM0==d) return d;
  154. !   return absval(product(n1,Quotient(n2,d)));
  155.   }
  156.   
  157.   SCM logand(n1,n2)
  158. ***************
  159. *** 606,613 ****
  160.     if(cnt < 0) {
  161.       res = intexpt(MAKINUM(2),MAKINUM(-INUM(cnt)));
  162.       if NFALSEP(negativep(n))
  163. !       return sum(MAKINUM(-1),quotient(sum(MAKINUM(1),n),res));
  164. !     else return quotient(n,res);
  165.     }
  166.     else return product(n,intexpt(MAKINUM(2),cnt));
  167.   #else
  168. --- 606,613 ----
  169.     if(cnt < 0) {
  170.       res = intexpt(MAKINUM(2),MAKINUM(-INUM(cnt)));
  171.       if NFALSEP(negativep(n))
  172. !       return sum(MAKINUM(-1),Quotient(sum(MAKINUM(1),n),res));
  173. !     else return Quotient(n,res);
  174.     }
  175.     else return product(n,intexpt(MAKINUM(2),cnt));
  176.   #else
  177. ***************
  178. *** 1437,1443 ****
  179.       {s_member,member},
  180.       {s_assq,assq},
  181.       {s_assoc,assoc},
  182. !     {s_quotient,quotient},
  183.       {s_remainder,lremainder},
  184.       {s_modulo,modulo},
  185.       {s_ash,ash},
  186. --- 1437,1443 ----
  187.       {s_member,member},
  188.       {s_assq,assq},
  189.       {s_assoc,assoc},
  190. !     {s_quotient,Quotient},
  191.       {s_remainder,lremainder},
  192.       {s_modulo,modulo},
  193.       {s_ash,ash},
  194. ===================================================================
  195. RCS file: /net/acae127/home/bammi/etc/src/master/atari/scm/sys.c,v
  196. retrieving revision 1.3
  197. diff -c -r1.3 sys.c
  198. *** 1.3    1993/02/19 21:14:45
  199. --- sys.c    1993/02/21 04:45:56
  200. ***************
  201. *** 63,71 ****
  202.                     || strchr(CHARS(modes),'+') )?tc_outport:0)));
  203.         SETSTREAM(z,f);
  204.   #ifndef MSDOS
  205. ! # ifdef FIONREAD
  206.         if (inp && isatty(fileno(f))) SYSCALL(setbuf(f,0););
  207.         /* turn off input buffering for ttys */
  208.   # endif
  209.   #endif
  210.       }
  211. --- 63,73 ----
  212.                     || strchr(CHARS(modes),'+') )?tc_outport:0)));
  213.         SETSTREAM(z,f);
  214.   #ifndef MSDOS
  215. ! # ifndef atarist
  216. ! #  ifdef FIONREAD
  217.         if (inp && isatty(fileno(f))) SYSCALL(setbuf(f,0););
  218.         /* turn off input buffering for ttys */
  219. + #  endif
  220.   # endif
  221.   #endif
  222.       }
  223. ===================================================================
  224. RCS file: /net/acae127/home/bammi/etc/src/master/atari/scm/time.c,v
  225. retrieving revision 1.3
  226. diff -c -r1.3 time.c
  227. *** 1.3    1993/02/19 21:14:46
  228. --- time.c    1993/02/21 04:45:58
  229. ***************
  230. *** 46,51 ****
  231. --- 46,55 ----
  232.   #  include <sys/types.h>
  233.   #  include <sys/times.h>
  234.   # endif
  235. + # ifdef __hpux
  236. + #  include <sys/types.h>
  237. + #  include <sys/times.h>
  238. + # endif
  239.   #else
  240.   # ifdef SVR2
  241.   #  include <time.h>
  242. ***************
  243. *** 77,83 ****
  244.   #endif
  245.   #ifdef atarist
  246.   # define LACK_FTIME
  247. ! # define LACK_TIMES
  248.   #endif
  249.   #ifdef MSDOS
  250.   # ifndef GO32
  251. --- 81,89 ----
  252.   #endif
  253.   #ifdef atarist
  254.   # define LACK_FTIME
  255. ! # ifndef __GNUC__
  256. ! #   define LACK_TIMES
  257. ! # endif
  258.   #endif
  259.   #ifdef MSDOS
  260.   # ifndef GO32
  261.